10 POKE53281,1:POKE53280,1
20 PRINT"[147]        [211][213][194][205][201][211][211][201][207][206] [198][207][210][205] [208][210][201][206][212][197][210]"
30 PRINT"     [208] - [208]RINT [211]UBMISSION [198]ORM"
40 PRINT"     [210] - [210]ETURN TO [204][207][193][196][211][212][193][210]"
50 PRINT"     [208]RESS [208] OR [210]."
60 A=PEEK(203):IFA<>41ANDA<>17THEN60
70 IFA=17THENGOSUB60000:GOTO50
80 PRINT"      [211]ET PRINTER TO TOP OF PAPER."
90 PRINT"   [208]RESS [211][208][193][195][197] TO [208][210][201][206][212], [193] TO [193][194][207][210][212]."
100 A=PEEK(203):IFA<>60ANDA<>10THEN100
110 IFA=10THENRUN
115 OPEN15,4,15:CLOSE15:IFST=.THEN120
116 PRINT"           [208]RINTER [206]OT [210]EADY!"
117 FORA=1TO2000:NEXT:PRINT"[145]                                  [145][145][145]":GOTO100
120 OPEN4,4,7:OPEN3,8,3,"SUBMISSION FORM":PRINT#4,"          ";
130 FORI=.TO1:GET#3,A$:I=ST
133 IFA$=CHR$(13)THENPRINT#4:PRINT#4,"          ";:GOTO140
137 PRINT#4,A$;
140 NEXT:CLOSE3:PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4
150 CLOSE4:RUN
60000 PRINT"[145]  [193]RE YOU SURE YOU WANT TO QUIT? ([217]/[206])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENPOKE198,.:END
60050 PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
60060 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END